home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 6
/
FM Towns Free Software Collection 6.iso
/
t_os
/
a404fm10
/
a404fm10.bas
next >
Wrap
BASIC Source File
|
1993-07-08
|
6KB
|
244 lines
1 ' save "A404FM10.bas",a
10 ' edit
20 '
30 '
40 '
50 '
60 '
70 '
80 '
90 '
100 GOSUB *INIT
110 GOSUB *MAINMENU
120 GOSUB *マウス
130 CM1=IN:WAIT 50
140 ON IN GOSUB *用紙,*漢字,*ANK,*排紙,*LIPS,*終了
150 GOSUB *マウス
160 CM2=IN:WAIT 50
170 GOSUB *実行
180 GOSUB *マウス
190 WAIT 50
200 ON IN GOSUB *結果,*中止
999 END
1000 *INIT
1010 CONSOLE ,,0:WIDTH 80,25
1020 SCREEN@ 0 : MOUSE 0: MOUSE 1,0,0,1
1030 RETURN
1040 *TITLE
1050 TI$="LBP-A404 (FM) プリンタ設定プログラム F-BASIC386版 L.10 NIF-ID:HAD01045(SAINT) "
1060 CLS 0 : LOCATE 0,0 : COLOR 12
1070 PRINT TI$;
1080 COLOR 7
1090 RETURN
1100 *MAINMENU
1105 AN=6
1110 GOSUB *TITLE
1120 LOCATE 5,2:COLOR 6
1130 TI$="[メインメニュー]"
1140 PRINT TI$;
1150 LOCATE 10,5:COLOR 6
1160 TI$="用紙のサイズ・向き"
1170 PRINT TI$;
1180 LOCATE 35,5:COLOR 6
1190 TI$=" 漢字のフォント "
1200 PRINT TI$;
1210 LOCATE 60,5:COLOR 6
1220 TI$="ANK文字のフォント "
1230 PRINT TI$;
1240 LOCATE 10,15:COLOR 6
1250 TI$=" 用紙の排出 "
1260 PRINT TI$;
1270 LOCATE 35,15:COLOR 6
1280 TI$="LIPS/FMPR切り替え "
1290 PRINT TI$;
1300 LOCATE 60,15:COLOR 6
1310 TI$=" 終了 "
1320 PRINT TI$;
1330 LOAD@ "IM001.TIF",(120,140)
1340 LOAD@ "IM002.TIF",(320,140)
1350 LOAD@ "IM003.TIF",(520,140)
1360 LOAD@ "IM004.TIF",(120,340)
1370 LOAD@ "IM005.TIF",(320,340)
1380 LOAD@ "IM006.TIF",(520,340)
1400 RETURN
2100 *用紙
2110 AN=6
2120 GOSUB *TITLE
2130 LOCATE 5,2:COLOR 6
2140 TI$="[用紙のサイズ・向き]"
2150 PRINT TI$;
2160 LOCATE 10,5:COLOR 6
2170 TI$=" 実寸 縦置き "
2180 PRINT TI$;
2190 LOCATE 35,5:COLOR 6
2200 TI$=" 実寸 横置き "
2210 PRINT TI$;
2220 LOCATE 60,5:COLOR 6
2230 TI$=" SF10→A4 縦置き "
2240 PRINT TI$;
2250 LOCATE 10,15:COLOR 6
2260 TI$=" SF15→A4 横置き "
2270 PRINT TI$;
2280 LOCATE 35,15:COLOR 6
2290 TI$=" B4 → A4 縦置き "
2300 PRINT TI$;
2310 LOCATE 60,15:COLOR 6
2320 TI$=" B4 → A4 横置き "
2330 PRINT TI$;
2340 LOAD@ "IM011.TIF",(120,140)
2350 LOAD@ "IM012.TIF",(320,140)
2360 LOAD@ "IM013.TIF",(520,140)
2370 LOAD@ "IM014.TIF",(120,340)
2380 LOAD@ "IM015.TIF",(320,340)
2390 LOAD@ "IM016.TIF",(520,340)
2400 RETURN
3100 *漢字
3110 AN=2
3120 GOSUB *TITLE
3130 LOCATE 5,2:COLOR 6
3140 TI$="[漢字のフォント] "
3150 PRINT TI$;
3160 LOCATE 10,5:COLOR 6
3170 TI$=" 明朝体 "
3180 PRINT TI$;
3190 LOCATE 35,5:COLOR 6
3200 TI$=" ゴシック体 "
3210 PRINT TI$;
3220 LOAD@ "IM021.TIF",(120,140)
3230 LOAD@ "IM022.TIF",(320,140)
3240 RETURN
4100 *ANK
4110 AN=5
4120 GOSUB *TITLE
4130 LOCATE 5,2:COLOR 6
4140 TI$="[ANK文字のフォント]"
4150 PRINT TI$;
4160 LOCATE 10,5:COLOR 6
4170 TI$=" 標準仕様 "
4180 PRINT TI$;
4190 LOCATE 35,5:COLOR 6
4200 TI$=" OCR_A,明朝10CPI "
4210 PRINT TI$;
4220 LOCATE 60,5:COLOR 6
4230 TI$=" OCR_B,明朝10CPI "
4240 PRINT TI$;
4250 LOCATE 10,15:COLOR 6
4260 TI$=" OCR_A,OCR_カナ "
4270 PRINT TI$;
4280 LOCATE 35,15:COLOR 6
4290 TI$=" OCR_B,OCR_カナ "
4300 PRINT TI$;
4310 LOAD@ "IM031.TIF",(120,140)
4320 LOAD@ "IM032.TIF",(320,140)
4330 LOAD@ "IM033.TIF",(520,140)
4340 LOAD@ "IM034.TIF",(120,340)
4350 LOAD@ "IM035.TIF",(320,340)
4360 RETURN
5100 *排紙
5110 AN=2
5120 GOSUB *TITLE
5130 LOCATE 5,2:COLOR 6
5140 TI$="[用紙の排出] "
5150 PRINT TI$;
5160 LOCATE 10,5:COLOR 6
5170 TI$=" 用紙を排出する "
5180 PRINT TI$;
5190 LOAD@ "IM004.TIF",(120,140)
5220 RETURN
6100 *LIPS
6110 AN=2
6120 GOSUB *TITLE
6130 LOCATE 5,2:COLOR 6
6140 TI$="[LIPS/FMPRモード切り替え]"
6150 PRINT TI$;
6160 LOCATE 10,5:COLOR 6
6170 TI$=" FMPRモード "
6180 PRINT TI$;
6190 LOCATE 35,5:COLOR 6
6200 TI$=" LIPSモード "
6210 PRINT TI$;
6220 LOAD@ "IM041.TIF",(120,140)
6230 LOAD@ "IM042.TIF",(320,140)
6240 RETURN
7100 *実行
7110 AN=2
7120 GOSUB *TITLE
7130 LOCATE 5,2:COLOR 6
7140 TI$="[確認]"
7150 PRINT TI$;
7160 LOCATE 10,5:COLOR 6
7170 TI$=" 実行する "
7180 PRINT TI$;
7190 LOCATE 35,5:COLOR 6
7200 TI$=" 中止する "
7210 PRINT TI$;
7220 LOAD@ "IM051.TIF",(120,140)
7230 LOAD@ "IM052.TIF",(320,140)
7240 RETURN
8100 *中止
8110 GOSUB *TITLE
8120 LOCATE 5,2:COLOR 6
8130 TI$="[中止]"
8140 PRINT TI$;
8150 LOCATE 10,5:COLOR 6
8160 TI$="設定を中止して、メインメニューへ戻ります(;_;)"
8170 PRINT TI$;
8180 WAIT 200
8190 RETURN 110
9100 *結果
9105 GOSUB *TITLE
9110 ON ERROR GOTO *P_ERR
9120 IF (CM1=1) * (CM2=1) THEN LPRINT CHR$(&H1B)+"?f1";
9130 IF (CM1=1) * (CM2=2) THEN LPRINT CHR$(&H1B)+"?f2";
9140 IF (CM1=1) * (CM2=3) THEN LPRINT CHR$(&H1B)+"?f3";
9150 IF (CM1=1) * (CM2=4) THEN LPRINT CHR$(&H1B)+"?f4";
9160 IF (CM1=1) * (CM2=5) THEN LPRINT CHR$(&H1B)+"?f6";
9170 IF (CM1=1) * (CM2=6) THEN LPRINT CHR$(&H1B)+"?f7";
9180 IF (CM1=2) * (CM2=1) THEN LPRINT CHR$(&H1B)+"?T0";
9190 IF (CM1=2) * (CM2=2) THEN LPRINT CHR$(&H1B)+"?T1";
9200 IF (CM1=3) * (CM2=1) THEN LPRINT CHR$(&H1B)+"?O0";
9210 IF (CM1=3) * (CM2=2) THEN LPRINT CHR$(&H1B)+"?O1";
9220 IF (CM1=3) * (CM2=3) THEN LPRINT CHR$(&H1B)+"?O2";
9230 IF (CM1=3) * (CM2=4) THEN LPRINT CHR$(&H1B)+"?O3";
9240 IF (CM1=3) * (CM2=5) THEN LPRINT CHR$(&H1B)+"?O4";
9250 IF (CM1=4) * (CM2=1) THEN LPRINT CHR$(&H0C);
9260 IF (CM1=5) * (CM2=1) THEN LPRINT CHR$(&H1B)+"?f6";
9270 IF (CM1=5) * (CM2=2) THEN LPRINT CHR$(&H1B)+"?f7";
9280 LOCATE 5,2:COLOR 6
9290 TI$="[実行]"
9300 PRINT TI$;
9310 LOCATE 10,5:COLOR 6
9320 TI$="プリンタ設定を実行しました(^_^)"
9330 PRINT TI$;
9340 WAIT 200
9350 RETURN 110
10100 *P_ERR
10110 GOSUB *TITLE
10120 LOCATE 5,2:COLOR 6
10130 TI$="[エラー]"
10140 PRINT TI$;
10150 LOCATE 10,5:COLOR 6
10160 TI$="プリンタエラーです(;_;) ON LINEになってますか(・_・?)"
10170 PRINT TI$;
10180 WAIT 200
10190 RESUME 110
11000 *マウス
11010 MX=MOUSE(0):MY=MOUSE(1)
11020 IN=1:MMX=120:MMY=140:GOSUB *M_CHECK
11030 IN=2:MMX=320:MMY=140:GOSUB *M_CHECK
11040 IN=3:MMX=520:MMY=140:GOSUB *M_CHECK
11050 IN=4:MMX=120:MMY=340:GOSUB *M_CHECK
11060 IN=5:MMX=320:MMY=340:GOSUB *M_CHECK
11070 IN=6:MMX=520:MMY=340:GOSUB *M_CHECK
11080 GOTO 11010
11100 *M_CHECK
11110 M_ON=0
11120 IF SGN((MX-MMX)*(MMX+64-MX))+SGN((MMY-MY)*(MY-MMY-64))>0 THEN M_ON=1
11125 IF (M_ON=1) * (MOUSE(2,0)=-1) THEN RETURN *M_RET
11130 IF AN=IN THEN RETURN *マウス
11140 RETURN
11200 *M_RET
11210 RETURN
12000 *終了
12010 END